home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol1 / snip_colourtext.dba < prev    next >
Encoding:
Text File  |  2000-08-05  |  593 b   |  28 lines
  1. `    ------------------------------------------------------------------------
  2. `    Colour Text                                 DarkForge Snippet (6/8/2000)
  3. `    ------------------------------------------------------------------------
  4. `
  5. `    Simple display of the point command to nicely shade text
  6.  
  7. sync rate 0
  8. sync on
  9. hide mouse
  10.  
  11. ink rgb(255,255,255),1
  12. set text font "Courier"
  13. set text size 12
  14. set text to bold
  15. text 0,0,"DARKFORGE"
  16.  
  17. ink rgb(80,80,0),1
  18.  
  19. for a=2 to 16
  20.     for b=0 to 100
  21.         if point(b,a)=16777215 then dot b,a
  22.     next b
  23.     ink rgb(80+10*a,80+a*10,0),1
  24. next a
  25.  
  26. wait key
  27.  
  28.